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proc do_timers{ } 

^ if { $ { : : VPBO.TIMERS_numelements} > 0 } { 

set DSGN_PARAM "timer -tsize 32 -psize 32 -psize 32 -peons '0' -pdmax 1 
NMR -extm Y_N_MASK -nc r NCR -t 2 -areset 2 -0 TIMERNAME" 

set i 0 

while {${ : : VPBO.TIMERS_numelements > $i} { 

set DSGN_PARAM_COPY $DSGN_PARAM 

#-- if we have only one timer we make sure 

#-- that we do not use index elements 

if {${ : : VPBO.TIMERS_numelements} = = 1} { 

set devicename "timer" 

set tmpstr"" 

} else { 

set devicename "timer$i" 
set tmpstr "Si" 

} 
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regsub -all "NMR" $DSGN_PARAM_COPY [set 
::VPBO.TIMERS$i.NUM_MATCH] DSGN_PARAM_COPY 

regsub -all "Y_N_MASK" $DSGN_PARAM_COPY [set 
::VPBO.TIMERS$i.MATCH_INT] DSGN_PARAM_CO 

PY 

regsub -all "NMR" $DSGN_PARAM_COPY [set ::VPBO.TIMERS$i.NCR] 
DSGN_PARAM_COPY 

regsub -all "TIMERNAME" $DSGN_PARAM_COPY $ (devicename} 
DSGN_PARAM_COPY 
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lappend : : libraryjist "library $ { devicename }_lib; \nuse 
$ { devicename }_lib.$(devicename)_pkg. all; \n" 

lappend: : vpb_dev_name $ {devicename} 

lappend: : gate_count [list - n 'Timer $i " -g 6135 -sg " " -t Sy ] 
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lappened : : sgnl_name "VPB Timer $devicename" 

lappened : : sgnl_name "tmr$ {tmpstr}_pause 1111" 

lappened : : clk_dst_name "ctjmr${devicename}_pclk 1 ckjibclk" 

set iinfo"" 

lappened iinfo "u_tmr$tmpstr I timer$tmpstr I VPB Timer $tmpstr" 

lappened iinfo "pclk I ct_tmr$ {tmpstr}_pclk I VPB Bus Clock" 

lappened iinfo "pstb I pstb I VPB Peripheral Strobe " 

lappened iinfo "psel I pseLtmr${tmpstr} I VPB Peripheral Select" 

lappened iinfo "pwrite I pwrite I VPB Peripheral Write" 

lappened iinfo "pd I pd I VPB Data Bus (31:0)" 

if { [set : : VPBO.TIMERS$i.NCR] > 0 } { 

lappend : : assignjist " Tie off capture Inputs " 
lappend : : assignjist "tmr$ {tmr$(tmpstr}„capture I (expr (($: : LANGUAGE) = = 
(LANG_VHDL ) ) ?{ (others =>logicJ)l) : {logic J)}] " 

lappend iinfo "capture I tmr${(tmpstr)_capture I Timer Capture Signals" 
lappened : : sgnl„name "tmr$ {tmpstr}_capture I set : : VPBOTIMERS$i.NCR] I" 

if { [set ; : VPBO.TIMERS$i.NUM„MATCH] > 0} { 

lappened iinfo "nint I tmr${tmpstr} Jnt I Timer Interrupt, Active Low" 
lappened : : intr_src "${devicename}_nint" 

it { [set : : VPB0.TIMERS$i.NCR] > 0 / / [set : : VPBO.TIMERS$i.NUM„MATCH] > 0} { 
lappened iinfo "pnres / ct_tmr$(tmpstr)_pures ! VPB Asynchronous Timer Reset" 
lappened iinfo "pa I pa(5 downto 0) I VPB Address Bus (5:0)" 
lappened : : rst_dst_name "rs_tmr$(tmpstr)_pnres 1 cg_nbclk" 

} else { 

lappened iinfo "pa I pa(4 downto 0) I VPB Address Bus (5:0)" 

lappend iinfo "pause I tmr$(tmpstr)_pause I Timer Pause" 
lappend : : assignjist "Tie off pause Inputs " 
lappend : : assignjist " tmr$(tmpstr)_pause I logicj)" 
#- - Based on the number of match outputs, we create interrupt sources 
if {[set : : VPB0.TIMERS$i.MATCH_INT] = = 1 } { 
setj 0 

while { [set : : VPB0.TIMERS$i.NUM_MATCH] > $j} { 
lappend : : intr_src "${devicename}_m$j" 

lappend iinfo "m$j I tmr${tmpstr}_m$j I Timer $tmpstr External Match $j Output 
incr j 

} 

lappend iinfo "scantestmode I scantestmode I Scan Test Mode" 
lappend : : inst_list $iinfo 
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proc create_chipcore { } { 

setccfid [open "$ : : WORKJDIR/S : : COMPONENTNAME/chip/top/chipco^ey , 

"a"] 

# Module and port type declaration has already been written by padring.tcl 
foreach elem $ : : sgnl_name { 
regsub { [ / 1] +$} $elem { } elem 
set selem [split $elem " / " ] 
switch [llength Sselem] { 

1 { puts Sccfid "$ { : xomment} [string trim [lindex Sselem 0] ]" } 

2 { set swidth [lindex Sselem 1] ; puts Sccfid [format " wire %7s %s" [expr 

($swi 

dth= = 1) ? { }: {\[[ expr $swidth-l] \:0 \]}] "string trim [lindex Sselem 0] ] ;" ] } 

3 { set swidth {lindex Sselem 1]; puts Sccfid [format " wire %7s %-40s ${: 

comme 

nt) %s" [expr ($swidth= = 1) ? { }: {\[ [ expr Sswidth- 1 ] \: 0\]}] "string trim [lindex Sselem 
0]];" [strin 

g trim [lindex Sselem 2 ] ] ] } 
} 

} 
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puts Sccfid "${: : comment} Reset and Clock signals" 
foreach elem [ concat $ : : rst_dst_name $: : clk_dst_name] { 

set selem [split Selem "/ " ] 

puts Sccfid [ccfid [format " wire %s; " [string trim [lindex Sselem 0] ] ] 

} 

puts Sccfid "\n[string repeat $: : comment 30]" 
puts Sccfid "$ : : comment Assign statements" 
puts Sccfid "\n[string repeat $: : comment 30] \n" 
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# Based on the assign _Hst, generate the HDL assign statements as required, 
foreach elem S : : assign Jist { 
regsub { [ At] + Selem { } elem 
set aelem [split Selem *Y "] 
if { [llength $aelem]==l } { 

puts Sccfid "${ : : comment) [lindex Saelem 0]" 
} else { 

if { {$: : LANGUAGE }= = "LANG_VHDL"} { 

puts Sccfid [format " %15s <= %s; " [string trim [lindex Saelem 0 ] ] 
[string trim [lindex Saelem 1 ]]] 
} else { 

puts Sccfid [format " assign %15s = %s; " [string trim [lindex 
Saelem 0 ] ] [string trim [lindex Saelem 1]]] 
} 

} 

} 
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proc create_chipcore { } { 

set ccfid [open "$ : : WORKJDIR/ S : : COMPONENTNAME/chip/top/chipcore. 

"a"] 

# Module and port type declaration has already been written by padring.tcl 

# Based on the sgnLname list, which contains all the internal signals 

# that must be generated for proper connectively, create the actual 

# VHDL or Verilog code that will perform that task. 

foreach elem $ : : sgnLname { 



foreach iinfo $: : inst_list { 
set first 1 
set istr 41 " 

foreach pmap $iinfo { 

regsub -all { [ \t] *\/ [ \t]*} $pmap {/ } pmap 
set pelem [split $pmap {/ }] 
if { $first } { 
set first 0 

append istr "\n${ : : comment) (string repeat $ {: : comment} 37] \n" 
append istr "${ :: comment} [lindex $pelem 2]\n" 
append istr "${ : : comment) (string repeat S {: : comment} 37] \n" 
append istr " [lindex $pelem 1 ] [lindex Spelem 0] (\n" 
} else { 

set formal [lindex Spelem 0] 
set actual [lindex Spelem 1] 

if { {$ : : LANGUAGE} = = "LANG JVERILOG" } { 
regsub -all {\ ( } Sactual {[ } actual 
regsub -all {\(} Sactual {] } actual 
regsub {open} Sactual { } actual 
regsub - all "downto " Sactual ": " actual 
regsub {\(} Sformal {[} formal 
regsub (\)} Sformal {]} formal 
regsub " downto u Sformal formal 

append istr " .Sformal (Sactual) , \n" 

} 

regsub {, \n$} Sistr " ) ; " istr 

puts Sccfid Sistr 

} 

puts Sccfid "\n\nendmodule \n" 
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